home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / DEF / Define / Performance / def-groove < prev    next >
Text File  |  1998-10-23  |  2KB  |  77 lines
  1. def-groove instruments & grooves
  2.  
  3. def-groove defines groove patterns for instruments. Groove values are length symbols or ticks, and they are added to the note-on values determined by the lengths. Groove values can be positive or negative. Really big groove values will corrupt totally the linear time organisation, creating interesting effects. Small ones add naturalness to beats.
  4.  
  5. Grooves are written the same way as lengths. There can be a one pattern for the whole section, or own groove pattern for each zone. All instruments can have own grooves. If no groove is defined, no grooving takes place.
  6.  
  7. (def-symbol
  8.    piano1 '(a b c d e f g h i j k l m n)
  9.    piano2 (reverse (symbol-of piano1))
  10. )
  11.  
  12. (def-length
  13.    piano1 '((1/16) (1/8t))
  14.    piano2 '((1/16) (1/8t))
  15. )
  16.  
  17. (def-groove
  18.    piano1 '((-1/64) (-1/32))
  19.    piano2 '(1/32 1/16t)
  20. )
  21.  
  22. (def-tonality
  23.    piano1 (activate-tonality (pentamajor c 4) (pentamajor d# 4))
  24.    piano2 (activate-tonality (pentamajor c 5) (pentamajor d# 5))
  25. )
  26.  
  27. (def-zone
  28.    piano1 '(2/1 2/1 1/1 1/1)
  29.    piano2 '(2/1 2/1 1/1 1/1)
  30. )
  31.  
  32. (def-channel
  33.    piano1 1
  34.    piano2 2
  35. )
  36.  
  37. (def-tempo 120)
  38.  
  39. (midiport :printer)
  40.  
  41. (compile-instrument-p "ccl;output:" "grooves"
  42.    piano1
  43.    piano2
  44. )
  45.  
  46. Class Example
  47.  
  48. (def-orchestra 'orchestra
  49.    all-instruments (synth)
  50. )
  51.  
  52. (def-section sect-a
  53.    default
  54.       zone '(1/1 1/1 1/1 1/1)
  55.       tonality (activate-tonality (major c 4))
  56.       length '(1/8)
  57.       velocity '(64)
  58.       duration as-length
  59.    synth
  60.       symbol '(a b c)
  61.       duration '(1/4)
  62.       groove '(1/32 1/16t)
  63. )
  64.  
  65. (def-channel
  66.    synth 1 
  67. )
  68.  
  69. (def-tempo 120)
  70.  
  71. (midiport :printer)
  72.  
  73. (play-file-p "Grooving"
  74.    all-instruments '(sect-a)
  75. )
  76.  
  77.